/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / menu-bar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 41 75 67 20 31 32 20 30 | on Fri |Aug 12 0|
|00000040| 32 3a 35 38 3a 30 38 20 | 31 39 39 34 0a 3b 3b 3b |2:58:08 |1994.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 66 73 66 2f 72 6d 73 | 2f 65 31 39 2f 6c 69 73 |/fsf/rms|/e19/lis|
|00000070| 70 2f 6d 65 6e 75 2d 62 | 61 72 2e 65 6c 0a 3b 3b |p/menu-b|ar.el.;;|
|00000080| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|00000090| 31 39 2e 32 35 2e 39 33 | 2e 31 2e 0a 3b 3b 3b 20 |19.25.93|.1..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 60 2f 68 6f 6d 65 2f | (error |"`/home/|
|000001a0| 66 73 66 2f 72 6d 73 2f | 65 31 39 2f 6c 69 73 70 |fsf/rms/|e19/lisp|
|000001b0| 2f 6d 65 6e 75 2d 62 61 | 72 2e 65 6c 27 20 77 61 |/menu-ba|r.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 62 79 74 |macs 19"|))..(byt|
|000001e0| 65 2d 63 6f 64 65 20 22 | c0 09 c2 5c 22 84 0f 00 |e-code "|...\"...|
|000001f0| c3 09 c4 c5 c6 21 23 88 | c7 c8 21 84 1a 00 c5 c9 |.....!#.|..!.....|
|00000200| 21 16 08 ca 16 0b c3 09 | cc c9 0e 08 42 23 88 c7 |!.......|....B#..|
|00000210| cd 21 84 31 00 c5 ce 21 | 16 0d c3 09 cf ce 0e 0d |.!.1...!|........|
|00000220| 42 23 88 c7 d0 21 84 45 | 00 c5 d1 21 16 10 c3 09 |B#...!.E|...!....|
|00000230| d2 d1 0e 10 42 23 88 c3 | 0e 10 d3 d4 23 88 c3 0e |....B#..|....#...|
|00000240| 10 d5 d6 23 88 c3 0e 10 | d7 d8 23 88 c3 0e 10 d9 |...#....|..#.....|
|00000250| da 23 88 c3 0e 10 db dc | 23 88 c3 0e 10 dd de 23 |.#......|#......#|
|00000260| 88 c3 0e 10 df e0 23 88 | c3 0e 10 e1 e2 23 88 c3 |......#.|.....#..|
|00000270| 0e 10 e3 e4 23 88 c3 0e | 10 e5 e6 23 88 c3 0e 10 |....#...|...#....|
|00000280| e7 e8 23 88 c3 0e 10 e9 | ea 23 88 c3 0e 10 eb ec |..#.....|.#......|
|00000290| 23 88 c3 0e 10 ed ee 23 | 88 c3 0e 10 ef f0 23 88 |#......#|......#.|
|000002a0| c3 0e 10 f1 f2 23 88 c3 | 0e 10 f3 f4 23 88 c3 0e |.....#..|....#...|
|000002b0| 10 f5 f6 23 88 c3 0e 10 | f7 f8 23 88 c3 0e 10 f9 |...#....|..#.....|
|000002c0| fa 23 88 c3 0e 10 fb fc | 23 88 c3 0e 10 fd fe 23 |.#......|#......#|
|000002d0| 88 c3 0e 3f 81 40 00 81 | 41 00 23 88 c3 0e 0d 81 |...?.@..|A.#.....|
|000002e0| 42 00 81 43 00 23 88 c3 | 0e 0d 81 44 00 81 45 00 |B..C.#..|...D..E.|
|000002f0| 23 88 c3 0e 0d 81 46 00 | 81 47 00 23 88 c3 0e 0d |#.....F.|.G.#....|
|00000300| 81 48 00 81 49 00 23 88 | c3 0e 0d 81 4a 00 81 4b |.H..I.#.|....J..K|
|00000310| 00 23 88 c3 0e 0d 81 4c | 00 81 4d 00 23 88 c3 0e |.#.....L|..M.#...|
|00000320| 0d 81 4e 00 81 4f 00 23 | 88 c3 0e 0d 81 50 00 81 |..N..O.#|.....P..|
|00000330| 51 00 23 88 c3 0e 0d 81 | 52 00 81 53 00 23 88 c3 |Q.#.....|R..S.#..|
|00000340| 0e 0d 81 54 00 81 55 00 | 23 88 c3 0e 0d 81 56 00 |...T..U.|#.....V.|
|00000350| 81 57 00 23 88 c3 0e 0d | 81 58 00 81 59 00 23 88 |.W.#....|.X..Y.#.|
|00000360| c3 0e 0d 81 5a 00 81 5b | 00 23 88 c3 0e 0d 81 5c |....Z..[|.#.....\|
|00000370| 5c 00 81 5d 00 23 88 c3 | 0e 0d 81 5e 00 81 5f 00 |\..].#..|...^.._.|
|00000380| 23 88 81 60 00 81 61 00 | 81 62 00 81 63 00 23 88 |#..`..a.|.b..c.#.|
|00000390| 81 60 00 81 64 00 81 62 | 00 81 63 00 23 88 81 60 |.`..d..b|..c.#..`|
|000003a0| 00 81 65 00 81 62 00 81 | 63 00 23 88 81 60 00 81 |..e..b..|c.#..`..|
|000003b0| 66 00 81 62 00 81 67 00 | 23 88 81 60 00 81 68 00 |f..b..g.|#..`..h.|
|000003c0| 81 62 00 81 63 00 23 88 | 81 60 00 81 69 00 81 62 |.b..c.#.|.`..i..b|
|000003d0| 00 81 6a 00 23 88 81 60 | 00 81 6b 00 81 62 00 0e |..j.#..`|..k..b..|
|000003e0| 6c 3f 23 88 81 6d 00 81 | 6e 00 81 6f 00 81 70 00 |l?#..m..|n..o..p.|
|000003f0| 81 71 00 81 72 00 25 88 | 81 60 00 81 73 00 81 62 |.q..r.%.|.`..s..b|
|00000400| 00 81 63 00 23 88 81 60 | 00 81 74 00 81 62 00 81 |..c.#..`|..t..b..|
|00000410| 63 00 23 88 81 60 00 81 | 75 00 81 62 00 81 76 00 |c.#..`..|u..b..v.|
|00000420| 23 87 22 20 5b 6c 6f 6f | 6b 75 70 2d 6b 65 79 20 |#." [loo|kup-key |
|00000430| 67 6c 6f 62 61 6c 2d 6d | 61 70 20 5b 6d 65 6e 75 |global-m|ap [menu|
|00000440| 2d 62 61 72 5d 20 64 65 | 66 69 6e 65 2d 6b 65 79 |-bar] de|fine-key|
|00000450| 20 5b 6d 65 6e 75 2d 62 | 61 72 5d 20 6d 61 6b 65 | [menu-b|ar] make|
|00000460| 2d 73 70 61 72 73 65 2d | 6b 65 79 6d 61 70 20 22 |-sparse-|keymap "|
|00000470| 6d 65 6e 75 2d 62 61 72 | 22 20 62 6f 75 6e 64 70 |menu-bar|" boundp|
|00000480| 20 6d 65 6e 75 2d 62 61 | 72 2d 68 65 6c 70 2d 6d | menu-ba|r-help-m|
|00000490| 65 6e 75 20 22 48 65 6c | 70 22 20 28 68 65 6c 70 |enu "Hel|p" (help|
|000004a0| 29 20 6d 65 6e 75 2d 62 | 61 72 2d 66 69 6e 61 6c |) menu-b|ar-final|
|000004b0| 2d 69 74 65 6d 73 20 5b | 6d 65 6e 75 2d 62 61 72 |-items [|menu-bar|
|000004c0| 20 68 65 6c 70 5d 20 6d | 65 6e 75 2d 62 61 72 2d | help] m|enu-bar-|
|000004d0| 65 64 69 74 2d 6d 65 6e | 75 20 22 45 64 69 74 22 |edit-men|u "Edit"|
|000004e0| 20 5b 6d 65 6e 75 2d 62 | 61 72 20 65 64 69 74 5d | [menu-b|ar edit]|
|000004f0| 20 6d 65 6e 75 2d 62 61 | 72 2d 66 69 6c 65 2d 6d | menu-ba|r-file-m|
|00000500| 65 6e 75 20 22 46 69 6c | 65 22 20 5b 6d 65 6e 75 |enu "Fil|e" [menu|
|00000510| 2d 62 61 72 20 66 69 6c | 65 5d 20 5b 65 78 69 74 |-bar fil|e] [exit|
|00000520| 2d 65 6d 61 63 73 5d 20 | 28 22 45 78 69 74 20 45 |-emacs] |("Exit E|
|00000530| 6d 61 63 73 22 20 2e 20 | 73 61 76 65 2d 62 75 66 |macs" . |save-buf|
|00000540| 66 65 72 73 2d 6b 69 6c | 6c 2d 65 6d 61 63 73 29 |fers-kil|l-emacs)|
|00000550| 20 5b 73 65 70 61 72 61 | 74 6f 72 2d 63 6f 6d 70 | [separa|tor-comp|
|00000560| 61 72 65 5d 20 28 22 2d | 2d 22 29 20 5b 65 70 61 |are] ("-|-") [epa|
|00000570| 74 63 68 5d 20 28 22 41 | 70 70 6c 79 20 50 61 74 |tch] ("A|pply Pat|
|00000580| 63 68 22 20 2e 20 6d 65 | 6e 75 2d 62 61 72 2d 65 |ch" . me|nu-bar-e|
|00000590| 70 61 74 63 68 2d 6d 65 | 6e 75 29 20 5b 65 64 69 |patch-me|nu) [edi|
|000005a0| 66 66 5d 20 28 22 43 6f | 6d 70 61 72 65 22 20 2e |ff] ("Co|mpare" .|
|000005b0| 20 6d 65 6e 75 2d 62 61 | 72 2d 65 64 69 66 66 2d | menu-ba|r-ediff-|
|000005c0| 6d 65 6e 75 29 20 5b 65 | 6d 65 72 67 65 5d 20 28 |menu) [e|merge] (|
|000005d0| 22 45 6d 65 72 67 65 22 | 20 2e 20 6d 65 6e 75 2d |"Emerge"| . menu-|
|000005e0| 62 61 72 2d 65 6d 65 72 | 67 65 2d 6d 65 6e 75 29 |bar-emer|ge-menu)|
|000005f0| 20 5b 73 65 70 61 72 61 | 74 6f 72 2d 6d 69 73 63 | [separa|tor-misc|
|00000600| 5d 20 28 22 2d 2d 22 29 | 20 5b 63 61 6c 65 6e 64 |] ("--")| [calend|
|00000610| 61 72 5d 20 28 22 43 61 | 6c 65 6e 64 61 72 22 20 |ar] ("Ca|lendar" |
|00000620| 2e 20 63 61 6c 65 6e 64 | 61 72 29 20 5b 72 6d 61 |. calend|ar) [rma|
|00000630| 69 6c 5d 20 28 22 52 65 | 61 64 20 4d 61 69 6c 22 |il] ("Re|ad Mail"|
|00000640| 20 2e 20 72 6d 61 69 6c | 29 20 5b 67 6e 75 73 5d | . rmail|) [gnus]|
|00000650| 20 28 22 52 65 61 64 20 | 4e 65 74 20 4e 65 77 73 | ("Read |Net News|
|00000660| 22 20 2e 20 67 6e 75 73 | 29 20 5b 73 65 70 61 72 |" . gnus|) [separ|
|00000670| 61 74 6f 72 2d 66 72 61 | 6d 65 73 5d 20 28 22 2d |ator-fra|mes] ("-|
|00000680| 2d 22 29 20 5b 64 65 6c | 65 74 65 2d 66 72 61 6d |-") [del|ete-fram|
|00000690| 65 5d 20 28 22 44 65 6c | 65 74 65 20 46 72 61 6d |e] ("Del|ete Fram|
|000006a0| 65 22 20 2e 20 64 65 6c | 65 74 65 2d 66 72 61 6d |e" . del|ete-fram|
|000006b0| 65 29 20 5b 6d 61 6b 65 | 2d 66 72 61 6d 65 5d 20 |e) [make|-frame] |
|000006c0| 28 22 4d 61 6b 65 20 4e | 65 77 20 46 72 61 6d 65 |("Make N|ew Frame|
|000006d0| 22 20 2e 20 6d 61 6b 65 | 2d 66 72 61 6d 65 29 20 |" . make|-frame) |
|000006e0| 5b 73 65 70 61 72 61 74 | 6f 72 2d 62 75 66 66 65 |[separat|or-buffe|
|000006f0| 72 73 5d 20 28 22 2d 2d | 22 29 20 5b 62 6f 6f 6b |rs] ("--|") [book|
|00000700| 6d 61 72 6b 5d 20 28 22 | 42 6f 6f 6b 6d 61 72 6b |mark] ("|Bookmark|
|00000710| 73 22 20 2e 20 6d 65 6e | 75 2d 62 61 72 2d 62 6f |s" . men|u-bar-bo|
|00000720| 6f 6b 6d 61 72 6b 2d 6d | 61 70 29 20 5b 70 72 69 |okmark-m|ap) [pri|
|00000730| 6e 74 2d 62 75 66 66 65 | 72 5d 20 28 22 50 72 69 |nt-buffe|r] ("Pri|
|00000740| 6e 74 20 42 75 66 66 65 | 72 22 20 2e 20 70 72 69 |nt Buffe|r" . pri|
|00000750| 6e 74 2d 62 75 66 66 65 | 72 29 20 5b 6b 69 6c 6c |nt-buffe|r) [kill|
|00000760| 2d 62 75 66 66 65 72 5d | 20 28 22 4b 69 6c 6c 20 |-buffer]| ("Kill |
|00000770| 42 75 66 66 65 72 22 20 | 2e 20 6b 69 6c 6c 2d 74 |Buffer" |. kill-t|
|00000780| 68 69 73 2d 62 75 66 66 | 65 72 29 20 5b 69 6e 73 |his-buff|er) [ins|
|00000790| 65 72 74 2d 66 69 6c 65 | 5d 20 28 22 49 6e 73 65 |ert-file|] ("Inse|
|000007a0| 72 74 20 46 69 6c 65 22 | 20 2e 20 69 6e 73 65 72 |rt File"| . inser|
|000007b0| 74 2d 66 69 6c 65 29 20 | 5b 72 65 76 65 72 74 2d |t-file) |[revert-|
|000007c0| 62 75 66 66 65 72 5d 20 | 28 22 52 65 76 65 72 74 |buffer] |("Revert|
|000007d0| 20 42 75 66 66 65 72 22 | 20 2e 20 72 65 76 65 72 | Buffer"| . rever|
|000007e0| 74 2d 62 75 66 66 65 72 | 29 20 5b 77 72 69 74 65 |t-buffer|) [write|
|000007f0| 2d 66 69 6c 65 5d 20 28 | 22 53 61 76 65 20 42 75 |-file] (|"Save Bu|
|00000800| 66 66 65 72 20 41 73 2e | 2e 2e 22 20 2e 20 77 72 |ffer As.|.." . wr|
|00000810| 69 74 65 2d 66 69 6c 65 | 29 20 5b 73 61 76 65 2d |ite-file|) [save-|
|00000820| 62 75 66 66 65 72 5d 20 | 28 22 53 61 76 65 20 42 |buffer] |("Save B|
|00000830| 75 66 66 65 72 22 20 2e | 20 73 61 76 65 2d 62 75 |uffer" .| save-bu|
|00000840| 66 66 65 72 29 20 5b 64 | 69 72 65 64 5d 20 28 22 |ffer) [d|ired] ("|
|00000850| 4f 70 65 6e 20 44 69 72 | 65 63 74 6f 72 79 2e 2e |Open Dir|ectory..|
|00000860| 2e 22 20 2e 20 64 69 72 | 65 64 29 20 5b 6f 70 65 |." . dir|ed) [ope|
|00000870| 6e 2d 66 69 6c 65 5d 20 | 28 22 4f 70 65 6e 20 46 |n-file] |("Open F|
|00000880| 69 6c 65 2e 2e 2e 22 20 | 2e 20 66 69 6e 64 2d 66 |ile..." |. find-f|
|00000890| 69 6c 65 29 20 6d 65 6e | 75 2d 62 61 72 2d 65 64 |ile) men|u-bar-ed|
|000008a0| 69 66 66 2d 6d 65 6e 75 | 20 5b 77 69 6e 64 6f 77 |iff-menu| [window|
|000008b0| 5d 20 28 22 54 68 69 73 | 20 57 69 6e 64 6f 77 20 |] ("This| Window |
|000008c0| 41 6e 64 20 4e 65 78 74 | 20 57 69 6e 64 6f 77 22 |And Next| Window"|
|000008d0| 20 2e 20 63 6f 6d 70 61 | 72 65 2d 77 69 6e 64 6f | . compa|re-windo|
|000008e0| 77 73 29 20 5b 71 75 65 | 72 79 2d 72 65 70 6c 61 |ws) [que|ry-repla|
|000008f0| 63 65 5d 20 28 22 51 75 | 65 72 79 20 52 65 70 6c |ce] ("Qu|ery Repl|
|00000900| 61 63 65 22 20 2e 20 71 | 75 65 72 79 2d 72 65 70 |ace" . q|uery-rep|
|00000910| 6c 61 63 65 29 20 5b 72 | 65 2d 73 65 61 72 63 68 |lace) [r|e-search|
|00000920| 2d 62 61 63 6b 5d 20 28 | 22 52 65 67 65 78 70 20 |-back] (|"Regexp |
|00000930| 53 65 61 72 63 68 20 42 | 61 63 6b 77 61 72 64 73 |Search B|ackwards|
|00000940| 22 20 2e 20 72 65 2d 73 | 65 61 72 63 68 2d 62 61 |" . re-s|earch-ba|
|00000950| 63 6b 77 61 72 64 29 20 | 5b 73 65 61 72 63 68 2d |ckward) |[search-|
|00000960| 62 61 63 6b 5d 20 28 22 | 53 65 61 72 63 68 20 42 |back] ("|Search B|
|00000970| 61 63 6b 77 61 72 64 73 | 22 20 2e 20 73 65 61 72 |ackwards|" . sear|
|00000980| 63 68 2d 62 61 63 6b 77 | 61 72 64 29 20 5b 72 65 |ch-backw|ard) [re|
|00000990| 2d 73 65 61 72 63 68 2d | 66 77 64 5d 20 28 22 52 |-search-|fwd] ("R|
|000009a0| 65 67 65 78 70 20 53 65 | 61 72 63 68 22 20 2e 20 |egexp Se|arch" . |
|000009b0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|000009c0| 64 29 20 5b 73 65 61 72 | 63 68 2d 66 77 64 5d 20 |d) [sear|ch-fwd] |
|000009d0| 28 22 53 65 61 72 63 68 | 22 20 2e 20 73 65 61 72 |("Search|" . sear|
|000009e0| 63 68 2d 66 6f 72 77 61 | 72 64 29 20 5b 73 65 70 |ch-forwa|rd) [sep|
|000009f0| 61 72 61 74 6f 72 2d 6d | 69 73 63 5d 20 28 22 2d |arator-m|isc] ("-|
|00000a00| 2d 22 29 20 5b 73 70 65 | 6c 6c 5d 20 28 22 53 70 |-") [spe|ll] ("Sp|
|00000a10| 65 6c 6c 22 20 2e 20 69 | 73 70 65 6c 6c 2d 6d 65 |ell" . i|spell-me|
|00000a20| 6e 75 2d 6d 61 70 29 20 | 5b 66 69 6c 6c 5d 20 28 |nu-map) |[fill] (|
|00000a30| 22 46 69 6c 6c 22 20 2e | 20 66 69 6c 6c 2d 72 65 |"Fill" .| fill-re|
|00000a40| 67 69 6f 6e 29 20 5b 73 | 65 70 61 72 61 74 6f 72 |gion) [s|eparator|
|00000a50| 2d 65 64 69 74 5d 20 28 | 22 2d 2d 22 29 20 5b 63 |-edit] (|"--") [c|
|00000a60| 6c 65 61 72 5d 20 28 22 | 43 6c 65 61 72 22 20 2e |lear] ("|Clear" .|
|00000a70| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 29 20 | delete-|region) |
|00000a80| 5b 63 68 6f 6f 73 65 2d | 6e 65 78 74 2d 70 61 73 |[choose-|next-pas|
|00000a90| 74 65 5d 20 28 22 43 68 | 6f 6f 73 65 20 4e 65 78 |te] ("Ch|oose Nex|
|00000aa0| 74 20 50 61 73 74 65 20 | 3e 22 20 2e 20 6d 6f 75 |t Paste |>" . mou|
|00000ab0| 73 65 2d 6d 65 6e 75 2d | 63 68 6f 6f 73 65 2d 79 |se-menu-|choose-y|
|00000ac0| 61 6e 6b 29 20 5b 70 61 | 73 74 65 5d 20 28 22 50 |ank) [pa|ste] ("P|
|00000ad0| 61 73 74 65 22 20 2e 20 | 79 61 6e 6b 29 20 5b 63 |aste" . |yank) [c|
|00000ae0| 6f 70 79 5d 20 28 22 43 | 6f 70 79 22 20 2e 20 6b |opy] ("C|opy" . k|
|00000af0| 69 6c 6c 2d 72 69 6e 67 | 2d 73 61 76 65 29 20 5b |ill-ring|-save) [|
|00000b00| 63 75 74 5d 20 28 22 43 | 75 74 22 20 2e 20 6b 69 |cut] ("C|ut" . ki|
|00000b10| 6c 6c 2d 72 65 67 69 6f | 6e 29 20 5b 75 6e 64 6f |ll-regio|n) [undo|
|00000b20| 5d 20 28 22 55 6e 64 6f | 22 20 2e 20 75 6e 64 6f |] ("Undo|" . undo|
|00000b30| 29 20 70 75 74 20 66 69 | 6c 6c 2d 72 65 67 69 6f |) put fi|ll-regio|
|00000b40| 6e 20 6d 65 6e 75 2d 65 | 6e 61 62 6c 65 20 6d 61 |n menu-e|nable ma|
|00000b50| 72 6b 2d 61 63 74 69 76 | 65 20 6b 69 6c 6c 2d 72 |rk-activ|e kill-r|
|00000b60| 65 67 69 6f 6e 20 6b 69 | 6c 6c 2d 72 69 6e 67 2d |egion ki|ll-ring-|
|00000b70| 73 61 76 65 20 79 61 6e | 6b 20 28 78 2d 73 65 6c |save yan|k (x-sel|
|00000b80| 65 63 74 69 6f 6e 2d 65 | 78 69 73 74 73 2d 70 29 |ection-e|xists-p)|
|00000b90| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 75 | delete-|region u|
|00000ba0| 6e 64 6f 20 28 69 66 20 | 28 65 71 20 6c 61 73 74 |ndo (if |(eq last|
|00000bb0| 2d 63 6f 6d 6d 61 6e 64 | 20 28 71 75 6f 74 65 20 |-command| (quote |
|00000bc0| 75 6e 64 6f 29 29 20 70 | 65 6e 64 69 6e 67 2d 75 |undo)) p|ending-u|
|00000bd0| 6e 64 6f 2d 6c 69 73 74 | 20 28 63 6f 6e 73 70 20 |ndo-list| (consp |
|00000be0| 62 75 66 66 65 72 2d 75 | 6e 64 6f 2d 6c 69 73 74 |buffer-u|ndo-list|
|00000bf0| 29 29 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |)) query|-replace|
|00000c00| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00000c10| 79 20 61 75 74 6f 6c 6f | 61 64 20 69 73 70 65 6c |y autolo|ad ispel|
|00000c20| 6c 2d 6d 65 6e 75 2d 6d | 61 70 20 22 69 73 70 65 |l-menu-m|ap "ispe|
|00000c30| 6c 6c 22 20 6e 69 6c 20 | 74 20 6b 65 79 6d 61 70 |ll" nil |t keymap|
|00000c40| 20 63 6c 69 70 62 6f 61 | 72 64 2d 6b 69 6c 6c 2d | clipboa|rd-kill-|
|00000c50| 72 65 67 69 6f 6e 20 63 | 6c 69 70 62 6f 61 72 64 |region c|lipboard|
|00000c60| 2d 6b 69 6c 6c 2d 72 69 | 6e 67 2d 73 61 76 65 20 |-kill-ri|ng-save |
|00000c70| 63 6c 69 70 62 6f 61 72 | 64 2d 79 61 6e 6b 20 28 |clipboar|d-yank (|
|00000c80| 6f 72 20 28 78 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |or (x-se|lection-|
|00000c90| 65 78 69 73 74 73 2d 70 | 29 20 28 78 2d 73 65 6c |exists-p|) (x-sel|
|00000ca0| 65 63 74 69 6f 6e 2d 65 | 78 69 73 74 73 2d 70 20 |ection-e|xists-p |
|00000cb0| 28 71 75 6f 74 65 20 43 | 4c 49 50 42 4f 41 52 44 |(quote C|LIPBOARD|
|00000cc0| 29 29 29 5d 20 36 29 0a | 28 64 65 66 61 6c 69 61 |)))] 6).|(defalia|
|00000cd0| 73 20 27 63 6c 69 70 62 | 6f 61 72 64 2d 79 61 6e |s 'clipb|oard-yan|
|00000ce0| 6b 20 23 5b 6e 69 6c 20 | 22 c0 19 c2 20 29 87 22 |k #[nil |"... )."|
|00000cf0| 20 5b 74 20 78 2d 73 65 | 6c 65 63 74 2d 65 6e 61 | [t x-se|lect-ena|
|00000d00| 62 6c 65 2d 63 6c 69 70 | 62 6f 61 72 64 20 79 61 |ble-clip|board ya|
|00000d10| 6e 6b 5d 20 31 20 22 5c | 0a 52 65 69 6e 73 65 72 |nk] 1 "\|.Reinser|
|00000d20| 74 20 74 68 65 20 6c 61 | 73 74 20 73 74 72 65 74 |t the la|st stret|
|00000d30| 63 68 20 6f 66 20 6b 69 | 6c 6c 65 64 20 74 65 78 |ch of ki|lled tex|
|00000d40| 74 2c 20 6f 72 20 74 68 | 65 20 63 6c 69 70 62 6f |t, or th|e clipbo|
|00000d50| 61 72 64 20 63 6f 6e 74 | 65 6e 74 73 2e 22 20 6e |ard cont|ents." n|
|00000d60| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00000d70| 63 6c 69 70 62 6f 61 72 | 64 2d 6b 69 6c 6c 2d 72 |clipboar|d-kill-r|
|00000d80| 69 6e 67 2d 73 61 76 65 | 20 23 5b 28 62 65 67 20 |ing-save| #[(beg |
|00000d90| 65 6e 64 29 20 22 c0 19 | c2 0b 5c 66 5c 22 29 87 |end) "..|..\f\").|
|00000da0| 22 20 5b 74 20 78 2d 73 | 65 6c 65 63 74 2d 65 6e |" [t x-s|elect-en|
|00000db0| 61 62 6c 65 2d 63 6c 69 | 70 62 6f 61 72 64 20 6b |able-cli|pboard k|
|00000dc0| 69 6c 6c 2d 72 69 6e 67 | 2d 73 61 76 65 20 62 65 |ill-ring|-save be|
|00000dd0| 67 20 65 6e 64 5d 20 33 | 20 22 5c 0a 43 6f 70 79 |g end] 3| "\.Copy|
|00000de0| 20 72 65 67 69 6f 6e 20 | 74 6f 20 6b 69 6c 6c 20 | region |to kill |
|00000df0| 72 69 6e 67 2c 20 61 6e | 64 20 73 61 76 65 20 69 |ring, an|d save i|
|00000e00| 6e 20 74 68 65 20 58 20 | 63 6c 69 70 62 6f 61 72 |n the X |clipboar|
|00000e10| 64 2e 22 20 22 72 22 5d | 29 0a 28 64 65 66 61 6c |d." "r"]|).(defal|
|00000e20| 69 61 73 20 27 63 6c 69 | 70 62 6f 61 72 64 2d 6b |ias 'cli|pboard-k|
|00000e30| 69 6c 6c 2d 72 65 67 69 | 6f 6e 20 23 5b 28 62 65 |ill-regi|on #[(be|
|00000e40| 67 20 65 6e 64 29 20 22 | c0 19 c2 0b 5c 66 5c 22 |g end) "|....\f\"|
|00000e50| 29 87 22 20 5b 74 20 78 | 2d 73 65 6c 65 63 74 2d |)." [t x|-select-|
|00000e60| 65 6e 61 62 6c 65 2d 63 | 6c 69 70 62 6f 61 72 64 |enable-c|lipboard|
|00000e70| 20 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 20 62 65 67 | kill-re|gion beg|
|00000e80| 20 65 6e 64 5d 20 33 20 | 22 5c 0a 4b 69 6c 6c 20 | end] 3 |"\.Kill |
|00000e90| 74 68 65 20 72 65 67 69 | 6f 6e 2c 20 61 6e 64 20 |the regi|on, and |
|00000ea0| 73 61 76 65 20 69 74 20 | 69 6e 20 74 68 65 20 58 |save it |in the X|
|00000eb0| 20 63 6c 69 70 62 6f 61 | 72 64 2e 22 20 22 72 22 | clipboa|rd." "r"|
|00000ec0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6d 65 |]).(defa|lias 'me|
|00000ed0| 6e 75 2d 62 61 72 2d 65 | 6e 61 62 6c 65 2d 63 6c |nu-bar-e|nable-cl|
|00000ee0| 69 70 62 6f 61 72 64 20 | 23 5b 6e 69 6c 20 22 c0 |ipboard |#[nil ".|
|00000ef0| 09 c2 c3 c4 42 23 88 c0 | 09 c5 c6 c7 42 23 88 c0 |....B#..|....B#..|
|00000f00| 09 c8 c9 ca 42 23 88 c0 | 0e 0b cc ca 23 88 c0 0e |....B#..|....#...|
|00000f10| 0b cd c7 23 88 c0 0e 0b | ce c4 23 88 c0 0e 0b cf |...#....|..#.....|
|00000f20| ca 23 88 c0 0e 0b d0 c7 | 23 88 c0 0e 0b d1 c4 23 |.#......|#......#|
|00000f30| 87 22 20 5b 64 65 66 69 | 6e 65 2d 6b 65 79 20 6d |." [defi|ne-key m|
|00000f40| 65 6e 75 2d 62 61 72 2d | 65 64 69 74 2d 6d 65 6e |enu-bar-|edit-men|
|00000f50| 75 20 5b 70 61 73 74 65 | 5d 20 22 50 61 73 74 65 |u [paste|] "Paste|
|00000f60| 22 20 63 6c 69 70 62 6f | 61 72 64 2d 79 61 6e 6b |" clipbo|ard-yank|
|00000f70| 20 5b 63 6f 70 79 5d 20 | 22 43 6f 70 79 22 20 63 | [copy] |"Copy" c|
|00000f80| 6c 69 70 62 6f 61 72 64 | 2d 6b 69 6c 6c 2d 72 69 |lipboard|-kill-ri|
|00000f90| 6e 67 2d 73 61 76 65 20 | 5b 63 75 74 5d 20 22 43 |ng-save |[cut] "C|
|00000fa0| 75 74 22 20 63 6c 69 70 | 62 6f 61 72 64 2d 6b 69 |ut" clip|board-ki|
|00000fb0| 6c 6c 2d 72 65 67 69 6f | 6e 20 67 6c 6f 62 61 6c |ll-regio|n global|
|00000fc0| 2d 6d 61 70 20 5b 66 32 | 30 5d 20 5b 66 31 36 5d |-map [f2|0] [f16]|
|00000fd0| 20 5b 66 31 38 5d 20 5b | 63 75 74 5d 20 5b 63 6f | [f18] [|cut] [co|
|00000fe0| 70 79 5d 20 5b 70 61 73 | 74 65 5d 5d 20 35 20 22 |py] [pas|te]] 5 "|
|00000ff0| 5c 0a 4d 61 6b 65 20 43 | 55 54 2c 20 50 41 53 54 |\.Make C|UT, PAST|
|00001000| 45 20 61 6e 64 20 43 4f | 50 59 20 28 6b 65 79 73 |E and CO|PY (keys|
|00001010| 20 61 6e 64 20 6d 65 6e | 75 20 62 61 72 20 69 74 | and men|u bar it|
|00001020| 65 6d 73 29 20 75 73 65 | 20 74 68 65 20 63 6c 69 |ems) use| the cli|
|00001030| 70 62 6f 61 72 64 2e 0a | 44 6f 20 74 68 65 20 73 |pboard..|Do the s|
|00001040| 61 6d 65 20 66 6f 72 20 | 74 68 65 20 6b 65 79 73 |ame for |the keys|
|00001050| 20 6f 66 20 74 68 65 20 | 73 61 6d 65 20 6e 61 6d | of the |same nam|
|00001060| 65 2e 22 20 6e 69 6c 5d | 29 0a 28 62 79 74 65 2d |e." nil]|).(byte-|
|00001070| 63 6f 64 65 20 22 c0 09 | c2 c3 23 88 c0 09 c4 c5 |code "..|..#.....|
|00001080| 23 88 c0 09 c6 c7 23 88 | c0 09 c8 c9 23 88 c0 09 |#.....#.|....#...|
|00001090| ca cb 23 88 c0 09 cc cd | 23 88 c0 09 ce cf 23 88 |..#.....|#.....#.|
|000010a0| c0 09 d0 d1 23 88 c0 09 | d2 d3 23 88 c0 09 d4 d5 |....#...|..#.....|
|000010b0| 23 88 c0 09 d6 d7 23 88 | c0 09 d8 d9 23 87 22 20 |#.....#.|....#." |
|000010c0| 5b 64 65 66 69 6e 65 2d | 6b 65 79 20 6d 65 6e 75 |[define-|key menu|
|000010d0| 2d 62 61 72 2d 68 65 6c | 70 2d 6d 65 6e 75 20 5b |-bar-hel|p-menu [|
|000010e0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 5d 20 28 |emacs-ve|rsion] (|
|000010f0| 22 53 68 6f 77 20 56 65 | 72 73 69 6f 6e 22 20 2e |"Show Ve|rsion" .|
|00001100| 20 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 20 | emacs-v|ersion) |
|00001110| 5b 72 65 70 6f 72 74 2d | 65 6d 61 63 73 2d 62 75 |[report-|emacs-bu|
|00001120| 67 5d 20 28 22 53 65 6e | 64 20 42 75 67 20 52 65 |g] ("Sen|d Bug Re|
|00001130| 70 6f 72 74 22 20 2e 20 | 72 65 70 6f 72 74 2d 65 |port" . |report-e|
|00001140| 6d 61 63 73 2d 62 75 67 | 29 20 5b 65 6d 61 63 73 |macs-bug|) [emacs|
|00001150| 2d 74 75 74 6f 72 69 61 | 6c 5d 20 28 22 45 6d 61 |-tutoria|l] ("Ema|
|00001160| 63 73 20 54 75 74 6f 72 | 69 61 6c 22 20 2e 20 68 |cs Tutor|ial" . h|
|00001170| 65 6c 70 2d 77 69 74 68 | 2d 74 75 74 6f 72 69 61 |elp-with|-tutoria|
|00001180| 6c 29 20 5b 6d 61 6e 5d | 20 28 22 4d 61 6e 2e 2e |l) [man]| ("Man..|
|00001190| 2e 22 20 2e 20 6d 61 6e | 75 61 6c 2d 65 6e 74 72 |." . man|ual-entr|
|000011a0| 79 29 20 5b 64 65 73 63 | 72 69 62 65 2d 76 61 72 |y) [desc|ribe-var|
|000011b0| 69 61 62 6c 65 5d 20 28 | 22 44 65 73 63 72 69 62 |iable] (|"Describ|
|000011c0| 65 20 56 61 72 69 61 62 | 6c 65 2e 2e 2e 22 20 2e |e Variab|le..." .|
|000011d0| 20 64 65 73 63 72 69 62 | 65 2d 76 61 72 69 61 62 | describ|e-variab|
|000011e0| 6c 65 29 20 5b 64 65 73 | 63 72 69 62 65 2d 66 75 |le) [des|cribe-fu|
|000011f0| 6e 63 74 69 6f 6e 5d 20 | 28 22 44 65 73 63 72 69 |nction] |("Descri|
|00001200| 62 65 20 46 75 6e 63 74 | 69 6f 6e 2e 2e 2e 22 20 |be Funct|ion..." |
|00001210| 2e 20 64 65 73 63 72 69 | 62 65 2d 66 75 6e 63 74 |. descri|be-funct|
|00001220| 69 6f 6e 29 20 5b 64 65 | 73 63 72 69 62 65 2d 6b |ion) [de|scribe-k|
|00001230| 65 79 5d 20 28 22 44 65 | 73 63 72 69 62 65 20 4b |ey] ("De|scribe K|
|00001240| 65 79 2e 2e 2e 22 20 2e | 20 64 65 73 63 72 69 62 |ey..." .| describ|
|00001250| 65 2d 6b 65 79 29 20 5b | 6c 69 73 74 2d 6b 65 79 |e-key) [|list-key|
|00001260| 62 69 6e 64 69 6e 67 73 | 5d 20 28 22 4c 69 73 74 |bindings|] ("List|
|00001270| 20 4b 65 79 62 69 6e 64 | 69 6e 67 73 22 20 2e 20 | Keybind|ings" . |
|00001280| 64 65 73 63 72 69 62 65 | 2d 62 69 6e 64 69 6e 67 |describe|-binding|
|00001290| 73 29 20 5b 63 6f 6d 6d | 61 6e 64 2d 61 70 72 6f |s) [comm|and-apro|
|000012a0| 70 6f 73 5d 20 28 22 43 | 6f 6d 6d 61 6e 64 20 41 |pos] ("C|ommand A|
|000012b0| 70 72 6f 70 6f 73 2e 2e | 2e 22 20 2e 20 63 6f 6d |propos..|." . com|
|000012c0| 6d 61 6e 64 2d 61 70 72 | 6f 70 6f 73 29 20 5b 64 |mand-apr|opos) [d|
|000012d0| 65 73 63 72 69 62 65 2d | 6d 6f 64 65 5d 20 28 22 |escribe-|mode] ("|
|000012e0| 44 65 73 63 72 69 62 65 | 20 4d 6f 64 65 22 20 2e |Describe| Mode" .|
|000012f0| 20 64 65 73 63 72 69 62 | 65 2d 6d 6f 64 65 29 20 | describ|e-mode) |
|00001300| 5b 69 6e 66 6f 5d 20 28 | 22 49 6e 66 6f 22 20 2e |[info] (|"Info" .|
|00001310| 20 69 6e 66 6f 29 20 5b | 65 6d 61 63 73 2d 6e 65 | info) [|emacs-ne|
|00001320| 77 73 5d 20 28 22 45 6d | 61 63 73 20 4e 65 77 73 |ws] ("Em|acs News|
|00001330| 22 20 2e 20 76 69 65 77 | 2d 65 6d 61 63 73 2d 6e |" . view|-emacs-n|
|00001340| 65 77 73 29 5d 20 34 29 | 0a 28 64 65 66 61 6c 69 |ews)] 4)|.(defali|
|00001350| 61 73 20 27 6b 69 6c 6c | 2d 74 68 69 73 2d 62 75 |as 'kill|-this-bu|
|00001360| 66 66 65 72 20 23 5b 6e | 69 6c 20 22 c0 70 21 87 |ffer #[n|il ".p!.|
|00001370| 22 20 5b 6b 69 6c 6c 2d | 62 75 66 66 65 72 5d 20 |" [kill-|buffer] |
|00001380| 32 20 22 5c 0a 4b 69 6c | 6c 73 20 74 68 65 20 63 |2 "\.Kil|ls the c|
|00001390| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 2e 22 20 |urrent b|uffer." |
|000013a0| 6e 69 6c 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |nil]).(b|yte-code|
|000013b0| 20 22 c0 c1 c2 5c 22 88 | c3 c4 c5 c6 23 88 c3 c7 | "...\".|....#...|
|000013c0| c5 c8 23 88 c3 c9 c5 ca | 23 88 c3 cb c5 cc 23 88 |..#.....|#.....#.|
|000013d0| c3 cd c5 ce 23 87 22 20 | 5b 64 65 66 61 6c 69 61 |....#." |[defalia|
|000013e0| 73 20 6b 69 6c 6c 2d 74 | 68 69 73 2d 62 75 66 66 |s kill-t|his-buff|
|000013f0| 65 72 2d 65 6e 61 62 6c | 65 64 2d 70 20 23 5b 6e |er-enabl|ed-p #[n|
|00001400| 69 6c 20 22 c0 c1 20 1a | 1b 5c 6e 83 1d 00 c4 c5 |il ".. .|.\n.....|
|00001410| c6 5c 6e 40 21 5c 22 84 | 16 00 0b 54 13 5c 6e 41 |.\n@!\".|...T.\nA|
|00001420| 89 12 84 09 00 0b c7 56 | 2a 87 22 20 5b 30 20 62 |.......V|*." [0 b|
|00001430| 75 66 66 65 72 2d 6c 69 | 73 74 20 62 75 66 66 65 |uffer-li|st buffe|
|00001440| 72 73 20 63 6f 75 6e 74 | 20 73 74 72 69 6e 67 2d |rs count| string-|
|00001450| 6d 61 74 63 68 20 22 5e | 20 22 20 62 75 66 66 65 |match "^| " buffe|
|00001460| 72 2d 6e 61 6d 65 20 31 | 5d 20 35 5d 20 70 75 74 |r-name 1|] 5] put|
|00001470| 20 73 61 76 65 2d 62 75 | 66 66 65 72 20 6d 65 6e | save-bu|ffer men|
|00001480| 75 2d 65 6e 61 62 6c 65 | 20 28 62 75 66 66 65 72 |u-enable| (buffer|
|00001490| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 29 20 72 65 76 |-modifie|d-p) rev|
|000014a0| 65 72 74 2d 62 75 66 66 | 65 72 20 28 6f 72 20 72 |ert-buff|er (or r|
|000014b0| 65 76 65 72 74 2d 62 75 | 66 66 65 72 2d 66 75 6e |evert-bu|ffer-fun|
|000014c0| 63 74 69 6f 6e 20 72 65 | 76 65 72 74 2d 62 75 66 |ction re|vert-buf|
|000014d0| 66 65 72 2d 69 6e 73 65 | 72 74 2d 66 69 6c 65 2d |fer-inse|rt-file-|
|000014e0| 63 6f 6e 74 65 6e 74 73 | 2d 66 75 6e 63 74 69 6f |contents|-functio|
|000014f0| 6e 20 28 61 6e 64 20 28 | 62 75 66 66 65 72 2d 66 |n (and (|buffer-f|
|00001500| 69 6c 65 2d 6e 61 6d 65 | 29 20 28 6f 72 20 28 62 |ile-name|) (or (b|
|00001510| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00001520| 29 20 28 6e 6f 74 20 28 | 76 65 72 69 66 79 2d 76 |) (not (|verify-v|
|00001530| 69 73 69 74 65 64 2d 66 | 69 6c 65 2d 6d 6f 64 74 |isited-f|ile-modt|
|00001540| 69 6d 65 20 28 63 75 72 | 72 65 6e 74 2d 62 75 66 |ime (cur|rent-buf|
|00001550| 66 65 72 29 29 29 29 29 | 29 20 64 65 6c 65 74 65 |fer)))))|) delete|
|00001560| 2d 66 72 61 6d 65 20 28 | 6c 65 74 20 28 28 66 72 |-frame (|let ((fr|
|00001570| 61 6d 65 73 20 28 66 72 | 61 6d 65 2d 6c 69 73 74 |ames (fr|ame-list|
|00001580| 29 29 20 28 63 6f 75 6e | 74 20 30 29 29 20 28 77 |)) (coun|t 0)) (w|
|00001590| 68 69 6c 65 20 66 72 61 | 6d 65 73 20 28 69 66 20 |hile fra|mes (if |
|000015a0| 28 63 64 72 20 28 61 73 | 73 71 20 28 71 75 6f 74 |(cdr (as|sq (quot|
|000015b0| 65 20 76 69 73 69 62 69 | 6c 69 74 79 29 20 28 66 |e visibi|lity) (f|
|000015c0| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|000015d0| 28 63 61 72 20 66 72 61 | 6d 65 73 29 29 29 29 20 |(car fra|mes)))) |
|000015e0| 28 73 65 74 71 20 63 6f | 75 6e 74 20 28 31 2b 20 |(setq co|unt (1+ |
|000015f0| 63 6f 75 6e 74 29 29 29 | 20 28 73 65 74 71 20 66 |count)))| (setq f|
|00001600| 72 61 6d 65 73 20 28 63 | 64 72 20 66 72 61 6d 65 |rames (c|dr frame|
|00001610| 73 29 29 29 20 28 3e 20 | 63 6f 75 6e 74 20 31 29 |s))) (> |count 1)|
|00001620| 29 20 6b 69 6c 6c 2d 74 | 68 69 73 2d 62 75 66 66 |) kill-t|his-buff|
|00001630| 65 72 20 28 6b 69 6c 6c | 2d 74 68 69 73 2d 62 75 |er (kill|-this-bu|
|00001640| 66 66 65 72 2d 65 6e 61 | 62 6c 65 64 2d 70 29 20 |ffer-ena|bled-p) |
|00001650| 61 64 76 65 72 74 69 73 | 65 64 2d 75 6e 64 6f 20 |advertis|ed-undo |
|00001660| 28 61 6e 64 20 28 6e 6f | 74 20 28 65 71 20 74 20 |(and (no|t (eq t |
|00001670| 62 75 66 66 65 72 2d 75 | 6e 64 6f 2d 6c 69 73 74 |buffer-u|ndo-list|
|00001680| 29 29 20 28 69 66 20 28 | 65 71 20 6c 61 73 74 2d |)) (if (|eq last-|
|00001690| 63 6f 6d 6d 61 6e 64 20 | 28 71 75 6f 74 65 20 75 |command |(quote u|
|000016a0| 6e 64 6f 29 29 20 28 61 | 6e 64 20 28 62 6f 75 6e |ndo)) (a|nd (boun|
|000016b0| 64 70 20 28 71 75 6f 74 | 65 20 70 65 6e 64 69 6e |dp (quot|e pendin|
|000016c0| 67 2d 75 6e 64 6f 2d 6c | 69 73 74 29 29 20 70 65 |g-undo-l|ist)) pe|
|000016d0| 6e 64 69 6e 67 2d 75 6e | 64 6f 2d 6c 69 73 74 29 |nding-un|do-list)|
|000016e0| 20 62 75 66 66 65 72 2d | 75 6e 64 6f 2d 6c 69 73 | buffer-|undo-lis|
|000016f0| 74 29 29 5d 20 34 29 0a | 28 64 65 66 76 61 72 20 |t))] 4).|(defvar |
|00001700| 79 61 6e 6b 2d 6d 65 6e | 75 2d 6c 65 6e 67 74 68 |yank-men|u-length|
|00001710| 20 31 30 30 20 22 5c 0a | 2a 4d 61 78 69 6d 75 6d | 100 "\.|*Maximum|
|00001720| 20 6c 65 6e 67 74 68 20 | 6f 66 20 61 6e 20 69 74 | length |of an it|
|00001730| 65 6d 20 69 6e 20 74 68 | 65 20 6d 65 6e 75 20 66 |em in th|e menu f|
|00001740| 6f 72 20 5c 5c 5b 6d 6f | 75 73 65 2d 6d 65 6e 75 |or \\[mo|use-menu|
|00001750| 2d 63 68 6f 6f 73 65 2d | 79 61 6e 6b 5d 2e 22 29 |-choose-|yank].")|
|00001760| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6d 6f 75 73 |.(defali|as 'mous|
|00001770| 65 2d 6d 65 6e 75 2d 63 | 68 6f 6f 73 65 2d 79 61 |e-menu-c|hoose-ya|
|00001780| 6e 6b 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 19 |nk #[(ev|ent) "..|
|00001790| c2 c3 5c 66 5c 22 1d c6 | 0e 07 c8 c9 0d 42 44 5c |..\f\"..|.....BD\|
|000017a0| 22 89 1e 5c 6e 85 29 00 | 0e 5c 6e 5c 66 9b 16 0b |"..\n.).|.\n\f...|
|000017b0| 74 83 26 00 cc cd 21 82 | 29 00 ce c0 21 2b 87 22 |t.&...!.|)...!+."|
|000017c0| 20 5b 30 20 63 6f 75 6e | 74 20 6d 61 70 63 61 72 | [0 coun|t mapcar|
|000017d0| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 08 47 09 | #[(stri|ng) ".G.|
|000017e0| 56 83 5c 66 00 08 c2 09 | 4f 10 08 0b 42 0b 54 13 |V.\f....|O...B.T.|
|000017f0| 87 22 20 5b 73 74 72 69 | 6e 67 20 79 61 6e 6b 2d |." [stri|ng yank-|
|00001800| 6d 65 6e 75 2d 6c 65 6e | 67 74 68 20 30 20 63 6f |menu-len|gth 0 co|
|00001810| 75 6e 74 5d 20 33 5d 20 | 6b 69 6c 6c 2d 72 69 6e |unt] 3] |kill-rin|
|00001820| 67 20 6d 65 6e 75 20 78 | 2d 70 6f 70 75 70 2d 6d |g menu x|-popup-m|
|00001830| 65 6e 75 20 65 76 65 6e | 74 20 22 59 61 6e 6b 20 |enu even|t "Yank |
|00001840| 4d 65 6e 75 22 20 22 43 | 68 6f 6f 73 65 20 4e 65 |Menu" "C|hoose Ne|
|00001850| 78 74 20 59 61 6e 6b 22 | 20 61 72 67 20 6b 69 6c |xt Yank"| arg kil|
|00001860| 6c 2d 72 69 6e 67 2d 79 | 61 6e 6b 2d 70 6f 69 6e |l-ring-y|ank-poin|
|00001870| 74 65 72 20 6d 65 73 73 | 61 67 65 20 22 54 68 65 |ter mess|age "The|
|00001880| 20 6e 65 78 74 20 79 61 | 6e 6b 20 77 69 6c 6c 20 | next ya|nk will |
|00001890| 69 6e 73 65 72 74 20 74 | 68 65 20 73 65 6c 65 63 |insert t|he selec|
|000018a0| 74 65 64 20 74 65 78 74 | 2e 22 20 63 75 72 72 65 |ted text|." curre|
|000018b0| 6e 74 2d 6b 69 6c 6c 5d | 20 36 20 22 5c 0a 50 6f |nt-kill]| 6 "\.Po|
|000018c0| 70 20 75 70 20 61 20 6d | 65 6e 75 20 6f 66 20 74 |p up a m|enu of t|
|000018d0| 68 65 20 6b 69 6c 6c 2d | 72 69 6e 67 20 66 6f 72 |he kill-|ring for|
|000018e0| 20 73 65 6c 65 63 74 69 | 6f 6e 20 77 69 74 68 20 | selecti|on with |
|000018f0| 74 68 65 20 6d 6f 75 73 | 65 2e 0a 54 68 65 20 6b |the mous|e..The k|
|00001900| 69 6c 6c 2d 72 69 6e 67 | 2d 79 61 6e 6b 2d 70 6f |ill-ring|-yank-po|
|00001910| 69 6e 74 65 72 20 69 73 | 20 6d 6f 76 65 64 20 74 |inter is| moved t|
|00001920| 6f 20 74 68 65 20 73 65 | 6c 65 63 74 65 64 20 65 |o the se|lected e|
|00001930| 6c 65 6d 65 6e 74 2e 0a | 41 20 73 75 62 73 65 71 |lement..|A subseq|
|00001940| 75 65 6e 74 20 5c 5c 5b | 79 61 6e 6b 5d 20 79 61 |uent \\[|yank] ya|
|00001950| 6e 6b 73 20 74 68 65 20 | 63 68 6f 69 63 65 20 6a |nks the |choice j|
|00001960| 75 73 74 20 73 65 6c 65 | 63 74 65 64 2e 22 20 22 |ust sele|cted." "|
|00001970| 65 22 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |e"]).(by|te-code |
|00001980| 22 c0 c1 c2 c3 23 88 c4 | 0d c6 c7 23 88 c8 c9 ca |"....#..|...#....|
|00001990| cb 21 5c 22 87 22 20 5b | 70 75 74 20 6d 6f 75 73 |.!\"." [|put mous|
|000019a0| 65 2d 6d 65 6e 75 2d 63 | 68 6f 6f 73 65 2d 79 61 |e-menu-c|hoose-ya|
|000019b0| 6e 6b 20 6d 65 6e 75 2d | 65 6e 61 62 6c 65 20 6b |nk menu-|enable k|
|000019c0| 69 6c 6c 2d 72 69 6e 67 | 20 64 65 66 69 6e 65 2d |ill-ring| define-|
|000019d0| 6b 65 79 20 67 6c 6f 62 | 61 6c 2d 6d 61 70 20 5b |key glob|al-map [|
|000019e0| 6d 65 6e 75 2d 62 61 72 | 20 62 75 66 66 65 72 5d |menu-bar| buffer]|
|000019f0| 20 28 22 42 75 66 66 65 | 72 73 22 20 2e 20 6d 65 | ("Buffe|rs" . me|
|00001a00| 6e 75 2d 62 61 72 2d 62 | 75 66 66 65 72 73 29 20 |nu-bar-b|uffers) |
|00001a10| 64 65 66 61 6c 69 61 73 | 20 6d 65 6e 75 2d 62 61 |defalias| menu-ba|
|00001a20| 72 2d 62 75 66 66 65 72 | 73 20 6d 61 6b 65 2d 73 |r-buffer|s make-s|
|00001a30| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 20 22 42 75 |parse-ke|ymap "Bu|
|00001a40| 66 66 65 72 73 22 5d 20 | 34 29 0a 28 64 65 66 76 |ffers"] |4).(defv|
|00001a50| 61 72 20 63 6f 6d 70 6c | 65 78 2d 62 75 66 66 65 |ar compl|ex-buffe|
|00001a60| 72 73 2d 6d 65 6e 75 2d | 70 20 6e 69 6c 20 22 5c |rs-menu-|p nil "\|
|00001a70| 0a 2a 4e 6f 6e 2d 6e 69 | 6c 20 73 61 79 73 2c 20 |.*Non-ni|l says, |
|00001a80| 6f 66 66 65 72 20 61 20 | 63 68 6f 69 63 65 20 6f |offer a |choice o|
|00001a90| 66 20 61 63 74 69 6f 6e | 73 20 61 66 74 65 72 20 |f action|s after |
|00001aa0| 79 6f 75 20 70 69 63 6b | 20 61 20 62 75 66 66 65 |you pick| a buffe|
|00001ab0| 72 2e 0a 54 68 69 73 20 | 61 70 70 6c 69 65 73 20 |r..This |applies |
|00001ac0| 74 6f 20 74 68 65 20 42 | 75 66 66 65 72 73 20 6d |to the B|uffers m|
|00001ad0| 65 6e 75 20 66 72 6f 6d | 20 74 68 65 20 6d 65 6e |enu from| the men|
|00001ae0| 75 20 62 61 72 2e 22 29 | 0a 28 64 65 66 76 61 72 |u bar.")|.(defvar|
|00001af0| 20 62 75 66 66 65 72 73 | 2d 6d 65 6e 75 2d 6d 61 | buffers|-menu-ma|
|00001b00| 78 2d 73 69 7a 65 20 31 | 30 20 22 5c 0a 2a 4d 61 |x-size 1|0 "\.*Ma|
|00001b10| 78 69 6d 75 6d 20 6e 75 | 6d 62 65 72 20 6f 66 20 |ximum nu|mber of |
|00001b20| 65 6e 74 72 69 65 73 20 | 77 68 69 63 68 20 6d 61 |entries |which ma|
|00001b30| 79 20 61 70 70 65 61 72 | 20 6f 6e 20 74 68 65 20 |y appear| on the |
|00001b40| 42 75 66 66 65 72 73 20 | 6d 65 6e 75 2e 0a 49 66 |Buffers |menu..If|
|00001b50| 20 74 68 69 73 20 69 73 | 20 31 30 2c 20 74 68 65 | this is| 10, the|
|00001b60| 6e 20 6f 6e 6c 79 20 74 | 68 65 20 74 65 6e 20 6d |n only t|he ten m|
|00001b70| 6f 73 74 2d 72 65 63 65 | 6e 74 6c 79 2d 73 65 6c |ost-rece|ntly-sel|
|00001b80| 65 63 74 65 64 20 62 75 | 66 66 65 72 73 20 61 72 |ected bu|ffers ar|
|00001b90| 65 20 73 68 6f 77 6e 2e | 0a 49 66 20 74 68 69 73 |e shown.|.If this|
|00001ba0| 20 69 73 20 6e 69 6c 2c | 20 74 68 65 6e 20 61 6c | is nil,| then al|
|00001bb0| 6c 20 62 75 66 66 65 72 | 73 20 61 72 65 20 73 68 |l buffer|s are sh|
|00001bc0| 6f 77 6e 2e 0a 41 20 6c | 61 72 67 65 20 6e 75 6d |own..A l|arge num|
|00001bd0| 62 65 72 20 6f 72 20 6e | 69 6c 20 73 6c 6f 77 73 |ber or n|il slows|
|00001be0| 20 64 6f 77 6e 20 6d 65 | 6e 75 20 72 65 73 70 6f | down me|nu respo|
|00001bf0| 6e 73 69 76 65 6e 65 73 | 73 2e 22 29 0a 28 62 79 |nsivenes|s.").(by|
|00001c00| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 84 08 00 c2 |te-code |"..!....|
|00001c10| 11 c3 c4 c5 5c 22 88 c3 | c6 c7 5c 22 88 c3 c8 c9 |....\"..|..\"....|
|00001c20| 5c 22 88 ca cb c8 5c 22 | 88 c0 cc 21 84 25 00 c2 |\"....\"|...!.%..|
|00001c30| 16 5c 66 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 6c |.\f.." [|boundp l|
|00001c40| 69 73 74 2d 62 75 66 66 | 65 72 73 2d 64 69 72 65 |ist-buff|ers-dire|
|00001c50| 63 74 6f 72 79 20 6e 69 | 6c 20 64 65 66 61 6c 69 |ctory ni|l defali|
|00001c60| 61 73 20 6d 65 6e 75 2d | 62 61 72 2d 73 65 6c 65 |as menu-|bar-sele|
|00001c70| 63 74 2d 62 75 66 66 65 | 72 20 23 5b 6e 69 6c 20 |ct-buffe|r #[nil |
|00001c80| 22 c0 09 21 87 22 20 5b | 73 77 69 74 63 68 2d 74 |"..!." [|switch-t|
|00001c90| 6f 2d 62 75 66 66 65 72 | 20 6c 61 73 74 2d 63 6f |o-buffer| last-co|
|00001ca0| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 5d 20 32 20 6e |mmand-ev|ent] 2 n|
|00001cb0| 69 6c 20 6e 69 6c 5d 20 | 6d 65 6e 75 2d 62 61 72 |il nil] |menu-bar|
|00001cc0| 2d 73 65 6c 65 63 74 2d | 66 72 61 6d 65 20 23 5b |-select-|frame #[|
|00001cd0| 6e 69 6c 20 22 c0 09 21 | 88 c2 09 21 88 c3 09 21 |nil "..!|...!...!|
|00001ce0| 87 22 20 5b 6d 61 6b 65 | 2d 66 72 61 6d 65 2d 76 |." [make|-frame-v|
|00001cf0| 69 73 69 62 6c 65 20 6c | 61 73 74 2d 63 6f 6d 6d |isible l|ast-comm|
|00001d00| 61 6e 64 2d 65 76 65 6e | 74 20 72 61 69 73 65 2d |and-even|t raise-|
|00001d10| 66 72 61 6d 65 20 73 65 | 6c 65 63 74 2d 66 72 61 |frame se|lect-fra|
|00001d20| 6d 65 5d 20 32 20 6e 69 | 6c 20 6e 69 6c 5d 20 6d |me] 2 ni|l nil] m|
|00001d30| 65 6e 75 2d 62 61 72 2d | 75 70 64 61 74 65 2d 62 |enu-bar-|update-b|
|00001d40| 75 66 66 65 72 73 20 23 | 5b 6e 69 6c 20 22 c0 c1 |uffers #|[nil "..|
|00001d50| 20 c2 5c 22 85 5e 01 c3 | 20 85 5e 01 c4 20 c5 20 | .\".^..| .^.. . |
|00001d60| c6 89 1e 07 1e 08 1e 09 | 1e 5c 6e 0e 0b a8 83 39 |........|.\n....9|
|00001d70| 00 0e 0b cc 56 83 39 00 | 0e 5c 6e 47 0e 0b 56 83 |....V.9.|.\nG..V.|
|00001d80| 39 00 0e 0b 0e 5c 6e 9b | c6 a1 88 cd 0e 5c 6e ce |9....\n.|.....\n.|
|00001d90| 89 c6 89 1e 0f 1e 10 1e | 11 1e 12 89 1e 13 83 6e |........|.......n|
|00001da0| 00 d4 0e 13 40 21 ce 48 | d5 3d 84 65 00 0e 12 d4 |....@!.H|.=.e....|
|00001db0| 0e 13 40 21 47 5d 16 12 | 0e 13 41 89 16 13 84 4e |..@!G]..|..A....N|
|00001dc0| 00 0e 5c 6e 89 16 13 83 | e9 00 0e 13 40 1e 16 d5 |..\n....|....@...|
|00001dd0| d4 0e 16 21 ce 48 3d 84 | c8 00 d7 89 d8 0e 12 5c |...!.H=.|.......\|
|00001de0| 22 d4 0e 16 21 d9 0e 16 | 21 83 9b 00 da 82 9c 00 |"...!...|!.......|
|00001df0| db 8a 0e 16 71 88 0e 1c | 83 aa 00 dd 82 ab 00 db |....q...|........|
|00001e00| 29 de 0e 16 21 86 bf 00 | 8a 0e 16 71 88 0e 1f 29 |)...!...|...q...)|
|00001e10| 86 bf 00 e0 25 0e 16 42 | 0e 10 42 16 10 0e 10 83 |....%..B|..B.....|
|00001e20| df 00 0e 10 40 40 47 0e | 11 56 83 df 00 0e 10 40 |....@@G.|.V.....@|
|00001e30| 40 47 16 11 29 0e 13 41 | 89 16 13 84 76 00 0e 10 |@G..)..A|....v...|
|00001e40| 9f 16 10 e1 e2 0e 10 5c | 22 e3 e4 0e 11 e5 a5 e6 |.......\|".......|
|00001e50| 5a ce 5d d5 5c 22 e7 50 | e3 42 42 43 a4 2d 42 16 |Z.].\".P|.BBC.-B.|
|00001e60| 08 0e 09 41 83 19 01 e8 | e1 e9 0e 09 5c 22 42 16 |...A....|....\"B.|
|00001e70| 07 0e 08 83 24 01 ea 0e | 08 42 16 08 0e 07 83 2f |....$...|.B...../|
|00001e80| 01 ea 0e 07 42 16 07 eb | c1 20 ec ed 0e 08 83 50 |....B...|. .....P|
|00001e90| 01 0e 07 83 50 01 ea ee | ca ed 0e 08 42 42 c9 ef |....P...|....BB..|
|00001ea0| 0e 07 42 42 46 82 5b 01 | 0e 08 86 5b 01 0e 07 86 |..BBF.[.|...[....|
|00001eb0| 5b 01 f0 42 23 2c 87 22 | 20 5b 6c 6f 6f 6b 75 70 |[..B#,."| [lookup|
|00001ec0| 2d 6b 65 79 20 63 75 72 | 72 65 6e 74 2d 67 6c 6f |-key cur|rent-glo|
|00001ed0| 62 61 6c 2d 6d 61 70 20 | 5b 6d 65 6e 75 2d 62 61 |bal-map |[menu-ba|
|00001ee0| 72 20 62 75 66 66 65 72 | 5d 20 66 72 61 6d 65 2d |r buffer|] frame-|
|00001ef0| 6f 72 2d 62 75 66 66 65 | 72 2d 63 68 61 6e 67 65 |or-buffe|r-change|
|00001f00| 64 2d 70 20 62 75 66 66 | 65 72 2d 6c 69 73 74 20 |d-p buff|er-list |
|00001f10| 66 72 61 6d 65 2d 6c 69 | 73 74 20 6e 69 6c 20 66 |frame-li|st nil f|
|00001f20| 72 61 6d 65 73 2d 6d 65 | 6e 75 20 62 75 66 66 65 |rames-me|nu buffe|
|00001f30| 72 73 2d 6d 65 6e 75 20 | 66 72 61 6d 65 73 20 62 |rs-menu |frames b|
|00001f40| 75 66 66 65 72 73 20 62 | 75 66 66 65 72 73 2d 6d |uffers b|uffers-m|
|00001f50| 65 6e 75 2d 6d 61 78 2d | 73 69 7a 65 20 31 20 22 |enu-max-|size 1 "|
|00001f60| 53 65 6c 65 63 74 20 42 | 75 66 66 65 72 22 20 30 |Select B|uffer" 0|
|00001f70| 20 68 65 61 64 20 61 6c | 69 73 74 20 6d 61 78 6c | head al|ist maxl|
|00001f80| 65 6e 20 6d 61 78 62 75 | 66 20 74 61 69 6c 20 62 |en maxbu|f tail b|
|00001f90| 75 66 66 65 72 2d 6e 61 | 6d 65 20 33 32 20 65 6c |uffer-na|me 32 el|
|00001fa0| 74 20 66 6f 72 6d 61 74 | 20 22 25 25 25 64 73 20 |t format| "%%%ds |
|00001fb0| 20 25 25 73 25 25 73 20 | 20 25 25 73 22 20 62 75 | %%s%%s | %%s" bu|
|00001fc0| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00001fd0| 22 2a 22 20 22 20 22 20 | 62 75 66 66 65 72 2d 72 |"*" " " |buffer-r|
|00001fe0| 65 61 64 2d 6f 6e 6c 79 | 20 22 25 22 20 62 75 66 |ead-only| "%" buf|
|00001ff0| 66 65 72 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 6c 69 |fer-file|-name li|
|00002000| 73 74 2d 62 75 66 66 65 | 72 73 2d 64 69 72 65 63 |st-buffe|rs-direc|
|00002010| 74 6f 72 79 20 22 22 20 | 6d 61 70 63 61 72 20 23 |tory "" |mapcar #|
|00002020| 5b 28 70 61 69 72 29 20 | 22 c0 09 41 21 09 40 c2 |[(pair) |"..A!.@.|
|00002030| 89 42 45 c3 a4 87 22 20 | 5b 62 75 66 66 65 72 2d |.BE..." |[buffer-|
|00002040| 6e 61 6d 65 20 70 61 69 | 72 20 6e 69 6c 20 6d 65 |name pai|r nil me|
|00002050| 6e 75 2d 62 61 72 2d 73 | 65 6c 65 63 74 2d 62 75 |nu-bar-s|elect-bu|
|00002060| 66 66 65 72 5d 20 34 5d | 20 6c 69 73 74 2d 62 75 |ffer] 4]| list-bu|
|00002070| 66 66 65 72 73 20 6d 61 | 6b 65 2d 73 74 72 69 6e |ffers ma|ke-strin|
|00002080| 67 20 32 20 38 20 22 4c | 69 73 74 20 41 6c 6c 20 |g 2 8 "L|ist All |
|00002090| 42 75 66 66 65 72 73 22 | 20 22 53 65 6c 65 63 74 |Buffers"| "Select|
|000020a0| 20 46 72 61 6d 65 22 20 | 23 5b 28 66 72 61 6d 65 | Frame" |#[(frame|
|000020b0| 29 20 22 08 c1 c2 08 21 | 9e 41 c3 89 42 45 c4 a4 |) "....!|.A..BE..|
|000020c0| 87 22 20 5b 66 72 61 6d | 65 20 6e 61 6d 65 20 66 |." [fram|e name f|
|000020d0| 72 61 6d 65 2d 70 61 72 | 61 6d 65 74 65 72 73 20 |rame-par|ameters |
|000020e0| 6e 69 6c 20 6d 65 6e 75 | 2d 62 61 72 2d 73 65 6c |nil menu|-bar-sel|
|000020f0| 65 63 74 2d 66 72 61 6d | 65 5d 20 34 5d 20 6b 65 |ect-fram|e] 4] ke|
|00002100| 79 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 |ymap def|ine-key |
|00002110| 5b 6d 65 6e 75 2d 62 61 | 72 20 62 75 66 66 65 72 |[menu-ba|r buffer|
|00002120| 5d 20 22 42 75 66 66 65 | 72 73 22 20 22 42 75 66 |] "Buffe|rs" "Buf|
|00002130| 66 65 72 73 20 61 6e 64 | 20 46 72 61 6d 65 73 22 |fers and| Frames"|
|00002140| 20 22 46 72 61 6d 65 73 | 22 20 75 6e 64 65 66 69 | "Frames|" undefi|
|00002150| 6e 65 64 5d 20 31 31 5d | 20 61 64 64 2d 68 6f 6f |ned] 11]| add-hoo|
|00002160| 6b 20 6d 65 6e 75 2d 62 | 61 72 2d 75 70 64 61 74 |k menu-b|ar-updat|
|00002170| 65 2d 68 6f 6f 6b 20 6d | 65 6e 75 2d 62 61 72 2d |e-hook m|enu-bar-|
|00002180| 6d 6f 64 65 5d 20 33 29 | 0a 28 64 65 66 61 6c 69 |mode] 3)|.(defali|
|00002190| 61 73 20 27 6d 65 6e 75 | 2d 62 61 72 2d 6d 6f 64 |as 'menu|-bar-mod|
|000021a0| 65 20 23 5b 28 66 6c 61 | 67 29 20 22 c0 09 9e 89 |e #[(fla|g) "....|
|000021b0| 1a 83 11 00 5c 6e 41 c3 | 3d 3f 14 82 1f 00 c0 5c |....\nA.|=?.....\|
|000021c0| 66 83 1a 00 c5 82 1b 00 | c3 42 09 42 11 29 0e 06 |f.......|.B.B.)..|
|000021d0| 84 2a 00 5c 66 3f 82 30 | 00 c7 0e 06 21 c3 56 14 |.*.\f?.0|....!.V.|
|000021e0| c0 09 9e 89 1e 08 3a 83 | 4b 00 0e 08 5c 66 83 45 |......:.|K...\f.E|
|000021f0| 00 c5 82 46 00 c3 a1 88 | 82 59 00 c0 5c 66 83 54 |...F....|.Y..\f.T|
|00002200| 00 c5 82 55 00 c3 42 09 | 42 11 29 c9 20 89 1e 5c |...U..B.|B.). ..\|
|00002210| 6e 85 94 00 cb cc 0e 5c | 6e 40 21 9e 41 1e 0b cd |n......\|n@!.A...|
|00002220| 0e 5c 6e 40 c0 5c 66 83 | 79 00 c5 82 7a 00 c3 42 |.\n@.\f.|y...z..B|
|00002230| 43 5c 22 88 cd 0e 5c 6e | 40 cb 0e 0b 42 43 5c 22 |C\"...\n|@...BC\"|
|00002240| 88 29 0e 5c 6e 41 89 16 | 5c 6e 84 62 00 ce 29 87 |.).\nA..|\n.b..).|
|00002250| 22 20 5b 6d 65 6e 75 2d | 62 61 72 2d 6c 69 6e 65 |" [menu-|bar-line|
|00002260| 73 20 64 65 66 61 75 6c | 74 2d 66 72 61 6d 65 2d |s defaul|t-frame-|
|00002270| 61 6c 69 73 74 20 64 65 | 66 61 75 6c 74 20 30 20 |alist de|fault 0 |
|00002280| 6d 65 6e 75 2d 62 61 72 | 2d 6d 6f 64 65 20 31 20 |menu-bar|-mode 1 |
|00002290| 66 6c 61 67 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |flag pre|fix-nume|
|000022a0| 72 69 63 2d 76 61 6c 75 | 65 20 70 61 72 61 6d 65 |ric-valu|e parame|
|000022b0| 74 65 72 20 66 72 61 6d | 65 2d 6c 69 73 74 20 66 |ter fram|e-list f|
|000022c0| 72 61 6d 65 73 20 68 65 | 69 67 68 74 20 66 72 61 |rames he|ight fra|
|000022d0| 6d 65 2d 70 61 72 61 6d | 65 74 65 72 73 20 6d 6f |me-param|eters mo|
|000022e0| 64 69 66 79 2d 66 72 61 | 6d 65 2d 70 61 72 61 6d |dify-fra|me-param|
|000022f0| 65 74 65 72 73 20 6e 69 | 6c 5d 20 35 20 22 5c 0a |eters ni|l] 5 "\.|
|00002300| 54 6f 67 67 6c 65 20 64 | 69 73 70 6c 61 79 20 6f |Toggle d|isplay o|
|00002310| 66 20 61 20 6d 65 6e 75 | 20 62 61 72 20 6f 6e 20 |f a menu| bar on |
|00002320| 65 61 63 68 20 66 72 61 | 6d 65 2e 0a 54 68 69 73 |each fra|me..This|
|00002330| 20 63 6f 6d 6d 61 6e 64 | 20 61 70 70 6c 69 65 73 | command| applies|
|00002340| 20 74 6f 20 61 6c 6c 20 | 66 72 61 6d 65 73 20 74 | to all |frames t|
|00002350| 68 61 74 20 65 78 69 73 | 74 20 61 6e 64 20 66 72 |hat exis|t and fr|
|00002360| 61 6d 65 73 20 74 6f 20 | 62 65 0a 63 72 65 61 74 |ames to |be.creat|
|00002370| 65 64 20 69 6e 20 74 68 | 65 20 66 75 74 75 72 65 |ed in th|e future|
|00002380| 2e 0a 57 69 74 68 20 61 | 20 6e 75 6d 65 72 69 63 |..With a| numeric|
|00002390| 20 61 72 67 75 6d 65 6e | 74 2c 20 69 66 20 74 68 | argumen|t, if th|
|000023a0| 65 20 61 72 67 75 6d 65 | 6e 74 20 69 73 20 6e 65 |e argume|nt is ne|
|000023b0| 67 61 74 69 76 65 2c 0a | 74 75 72 6e 20 6f 66 66 |gative,.|turn off|
|000023c0| 20 6d 65 6e 75 20 62 61 | 72 73 3b 20 6f 74 68 65 | menu ba|rs; othe|
|000023d0| 72 77 69 73 65 2c 20 74 | 75 72 6e 20 6f 6e 20 6d |rwise, t|urn on m|
|000023e0| 65 6e 75 20 62 61 72 73 | 2e 22 20 22 50 22 5d 29 |enu bars|." "P"])|
|000023f0| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00002400| 20 6d 65 6e 75 2d 62 61 | 72 29 29 0a             | menu-ba|r)).    |
+--------+-------------------------+-------------------------+--------+--------+